home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 001-025 / disk_013 / box.bas < prev    next >
BASIC Source File  |  1992-05-06  |  362b  |  18 lines
  1. 10    n% = &HFFFF
  2. 11    drawmode 1
  3. 12    ask window wx%, wy%
  4. 15    w = rnd * wx%
  5. 16    h = rnd * wy%
  6. 17    x = rnd * wx%
  7. 18    y = rnd * wy%
  8. 20    for i% = 0 to 7
  9. 30    a%(i%) = rnd * n%
  10. 40    next
  11. 45    pa% = rnd * 15
  12. 46    pb% = rnd * 15
  13. 47    if pb% = pa% then pb% = pa% + 1
  14. 50    pattern 8, a%()
  15. 55    pena pa% : penb pb%
  16. 60    box(w,h;x,y), 1
  17. 70    goto 12
  18.